==Нарисовать квадрат (по системе координат)==
Начало
Провести линию в точку (0, 1)
Провести линию в точку (1, 0)
Провести линию в точку (0, -1)
Провести линию в точку (-1, 0)
Конец
<html>
<head>
<title>Любое название</title>
</head>
<body>
<font size="10" color="red"> Любой текст </font>
</body>
</html>
В двух столбцах (например, A и B) вводите показатели, в третьем (например, С) вычисляете разницу. Нужное количество можно вычислить с помощью функции СЧЁТЕСЛИ.
var x,y:real; i:integer;
Begin
x := 1;
while(x < 50) do Begin
read(y);
x := x * y;
writeln(' Произведение = ', x);
inc(i);
End;
write('Введено ',i,' чисел');
End.