До ть будь ласка з відповіддю.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

расстояние в сантиметрах разделить на число сантиметров в одном метре

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

если paskal abc, то выделенное можно не писать