Давнондвро вот такой ответ
Program z26; Var a:integer; b, c:real;Begin write('Введите стоимость 1-го яблока - '); readln(a); write('Введите кол-во яблоу - '); readln(b); c:=a * b; writeln('Сумма покупки - ',c); End.
Program qq;
var i:byte;
begin
for i:= 100 to 200 do
if odd (i) = False then
writeln (i:4);
end.