Var
x, y: real;
z:integer;
begin
x := 0.1;
y := -3.4;
writeln(sqr(x) * 2 + 4 - sqr(y) / 5 <= 2);
z := 10;
writeln(z mod 5 + z / 0.1 = z div 2 - 3);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.