В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Var a,b,c: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if a<0 then writeln(a,' отрицательное');
if b<0 then writeln(b,' отрицательное');
if c<0 then writeln(c,' отрицательное');
end.
Код в приложении.
При вставке на сайт форматирование текста исчезает.