Напишите программу вычисляющую площадь квадрата. стороны пользователь вводит с клавиатуры

var

a: integer;

s: longint;

begin

repeat

write ('a = ' ); readln(a);

until (a> 0);

s: =sqr(a);

writeln (s);

readln;

end.

 

 

можно сделатьтаблицу в excel,   или я незнаю

Program odinakov; var i, it, il: integer; t: boolean; begin  for i: =1 to 255 do  begin t: =true; it: =i;     il: =i mod 10;     while it < > 0 do    begin      if it mod 10 < > il then        begin          t: =false;         break;       end;       it: =it div 10;     end;     if t then writeln(i);   end; end.

Было занятно сделать все это в виде одного // pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   readlnstring('-> ').towords(arr(',','.'))           .select(w-> w.where(c-> pos(c,'аеёиоуыэюя')> 0).groupby(x-> x)           .select(x-> (x.key,x.(x-> x[1]> (x-> x.count> 0)           .selectmany(x-> x).select(x-> x.item1).distinct.orderby(x-> x)           .println(',') end. пример -> дает,корова,молоко,,животное,жираф,катамаран. а,е,о