Саня Семенов
Оракул
(60497)
15 лет назад
второй ответ - самый рулез.. .
комменты:
//имя программы
program XXX;
//переменные
var a:real;
// начало процедуры
begin
// пишем на экране "Enter a->"
write('Enter a->');
// читаем с экрана то что ввел пользователь в переменную
readln(a);
// пишем на экране значениме переменной а в квадрате
writeln(sqr(a));
//ждем нажатия кнопки для закрытия (чтоб было время прочитать чё на экране)
readln;
// конец программы
end.
IJ
Ученик
(239)
15 лет назад
Program project1;
uses crt;
var a:real;
begin
write('Введите a: ') readln(a);
write('Ответ: ',sqr(a));
readln;
end.