Найдите ошибки в операторах на языке Pascal. При записи условий на первом месте записывайте переменную.

Program vetv2;

Var x, y:real;

Begin

Writeln('Значение выражения');

Write('Введите x, y');

Readln(x, y);

if 1then x:=x+1; y:=0;

Else x:=0; y:=y+1;

Writeln(x);

Writeln (y);

End.

имитационные модели оперируют разыгрыванием случайной величины!   если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

месяцы,каждый месяц в каждом времени года-это и есть классификация