Даны 3 числа a,b,c.определите сколько из них отрицательных. сделайте блок схему что надо вводить в программу

Решение на с++:
#include<iostream>
using namespace std;
int main()
{
int a,b,c,i;
cin>>a;
cin>>b;
cin>>c;
if(a<0) {i++;}
if(a<0) {i++;}
if(a<0) {i++;}
cout<<i<<"отрицательных чисел";
return 0;
}
решение на Pascal
var
a,b,c,i:real;
begin
readln(a);
readln(b);
readln(c);
if a<0 then i:=i+1;
if b<0 then i:=i+1;
if c<0 then i:=i+1;
writeln(i,  ,"отрицательных чисел")
end.