Экзамены по информатике 1 курс ИНЭК

Сегодня ещё +3 экзамена :) последняя пересдача по-моему :)

Задачки самые простые, на условный оператор if :

"Написать программу.которая вычисляет оптимальный вес пользовател.сравнивает его с реальным и выдает рекомендацию о необходимости понравиться или похудеть.оптимальный вес по формул рост - 100. Ниже представлен рекоменд вид экрана во время работы программы.рост см вес кг 170 68"

var
ves,rost,opt:integer;
begin
write('Введите свой рост: ');readln(rost);
write('Введите свой вес: ');readln(ves);
opt:=rost-100;
writeln(rost,' ',opt);
if  ves > opt then writeln('Вам нужно похудеть.')
else writeln('Вам нужно поправиться.');
readln;
end.


"Даны действительные числа а,б,с. Найти наибольшую из комбинаций данных чисел max (аб,б+5,ас)"

var
a,b,c,max:real;
begin
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
max:=a*b;
if    (b+5)> max then max:=b+5;
if (a*c) > max then max:=a*c;
writeln('a*b=',a*b,', b+5=',b+5,', a*c=',a*c,', max:',max);
readln;
end.

"Определите количество положительных чисел среди заданных а b c"

var
a,b,c,n:real;
begin
n:=0;
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
if a>0 then n:=n+1;
if b>0 then n:=n+1;
if c>0 then n:=n+1;
writeln('Кол-во положительных чисел: ',n);
readln;
end.