УМОЛЯЮ,ПОМОГИТЕ С ПАСКАЛЕМ
1)
Вычислить оптимальный вес по формуле рост-100 (фактический вес V и рост H вводятся пользователем) и выдать одно из сообщений:
- у вас идеальный вес;
- вам нужно похудеть на n кг (n вывести);
- вам нужно поправиться на n кг (n вывести).
2)Составить программу, которая бы по последней цифре многозначного числа выдавала бы одно из сообщений:
число не делится ни на 2, ни на 5
число делится только на 2
число делится только на 5
число делится и на 2, и на 5.

1)
var v,h,i:real;
begin
readln(v);
readln(h);
i:=h-100;
if v=i then writeln(у вас идеальный вес) else 
if v>i then writeln(вам нужно похудеть на , v-i, кг ) else
writeln(вам нужно поправиться на , i-v, кг );
end.

2)
var a:string;
b:integer;
begin
readln(a);
b:=strtoint(a[length(a)]);
if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln(число не делится ни на 2, ни на 5);
if (b mod 2 = 0) and (b mod 5 <> 0) then writeln(число делится только на 2);
if (b mod 2 <> 0) and (b mod 5 = 0) then writeln(число делится только на 5);
if (b mod 2 = 0) and (b mod 5 = 0) then writeln(число делится и на 2, и на 52);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.