Выведите на экран квадраты всех нечетных чисел от 1 до 30

[SaLoKiN]

then;

прикольно...

UPD
не успел, Vanta11a опередил)
удачных выходных всем ;-)

[Serge_Bliznykov]

ещё дополню ошибки

writeln ('разность',x,' и ',y,' равна',x-y);
if x<y then // ; - не надо после then
writeln ('произведение',x,' и ',y,' равно ',x*y);

[Mad_Cat]

i:=1;
while i<=29 do
begin
writeln(i*i);
inc(i,2);
end;

writeln ('произведение',x,' и ',y,' рАвнО',x*y);

[ZX Spectrum-128]

Орфографическая?

Неее, тогда между 2-й и 3-й - begin пропущен. А после последней end.

[Serge_Bliznykov]

Орфографическая?

нет. Вы не заметили, но там begin отсутствует!

program start;
var k,y: real;
begin
write(' запросите 2 числа: ');

Сообщение от ZX Spectrum-128

Неее, тогда между 2-й и 3-й - begin пропущен. А после последней end.

я не успел прокомментировать!!!

[ZX Spectrum-128]

Давно не видел кода, в котором в каждой строке была бы ошибка.

[Vanta11a]

но там begin отсутствует!

*сполз под стол*

[Mad_Cat]

во 2 строке тоже же ошибка

var x,y: real;

[xes66]

тогда получается вот так
program start;
begin
var k,y: real;
write(' запросите 2 числа: ');
readln (х,y); // х не объявлен в переменных
if x>y then // ; - не надо после then
writeln ('разность',x,' и ',y,' ровна,'x-y);
if x<y then // ; - не надо после then
writeln ('произведение',x,' и ',y,' равно,'x*y);
if x=y then // ; - не надо после then
writeln ('сумма',x,' и ',y,' равна',x+y);
end

кстати begin я пропустил когда списывал.
а по поводу второй задачи подскажете?

[Vanta11a]

А все равно не получается, объявлена переменная k, а используется х.

for i := 1 to 30 do
if odd(i) then writeln(i*i);

Объявить i типа integer и заменить тело программы.

А вообще - читайте мануалы, в них все ясно написано.