Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.
Что-то я далек от блок схем... Обе картинки цикла
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Program month;
uses crt;
var m: integer;
begin clrscr;
Write('M = ');
readln(m);
case m of 1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
end;
end.
Это блок схема
Таблица-
1 взять карандаш
2 взять линейку
И т.д
Список- взять ручку
Взять блокнот
И т.д