Question

На языке Паскаль, прошу срочно

Answer 1

1)
var a : integer;
begin
readln (a);
if a mod 2 = 0 then a := a div 2
else a := a * 10;
writeln (a);
end.
2)
var a,b,c: integer;
begin
c := a + b;
readln (a,b);
if c > 100 then writeln ('Много')
else writeln ('Мало');
end.
3)
var a,b: integer;
c : real;
begin
readln (a,b);
c := (a + b) / 2;
if c > 10 then writeln ('УРА!')
else writeln('КАРАУЛ!');
end.
4 )
var a,b : integer;
begin
readln (a,b);
if (a = 100) or (b = 100) or ((a =100) and (b = 100)) then writeln ('Здесь есть такое число')
else writeln (' Здесь нет такого числа');
end.