35 баллов! Информатика блох-схемы! Очень надо
1)Написать алгоритм нахождения максимального среди четырех целых чисел.
2)Среди чисел а, b, c определить количество положительных.

Спасибо большое!)

не зачто

var a,b,c: integer; beginfor a : = 1 to 4 do beginreadln ( b) ;if b > c then c:=b;end; end.var a, b, c: integer; begin for b:=1 to 3 do begin readln ( a ); if a > 0 then c:= c+1;end; if c =2 then write ('est'); end.var x,y:integer;beginreadln(x,y);If (x>0) and (y>0) then writeln('est');end.