Program PR1;
uses crt;
var skv,skr:real;
a,r:integer;
Begin
clrscr;
writeln('Введите сторону квадрата');
readln(a);
writeln('Введите радиус круга');
readln(r);
skv:=sqr(a);
skr:=pi*sqr(r);
if skv>skr then writeln('Площадь квадрата >')
else writeln('Площадь круга>');
end.
Если человек сидящий в аудитории, то тестотехник
var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.
Потому что без паузы алфавит морзе невозможно читать например ••• •••••• •• •••• ••• иииии посмотрите это без паузы ••••••••••••• ну ка? смогли почитать ? пауза нужен на то чтобы слово можно было читать по буквам
1) Сделать снимок экрана, чтобы потом по нему востановить данные.
2) Попробуй остановить через диспетчер задач.
3) Попробуй очистить данные.
4) Переустанови софт