Найдите и исправьте все ошибки допущенные в этой программе Запишите программы без ошибок....

Question

Найдите и исправьте все ошибки допущенные в этой программе Запишите программы без ошибок. Var a; b; c: integer;. begin Writeln( видите число a); Readln( a). B=5. c:=a / b. Writeln(c). End

Answer 1

1. var  
2.  a, b, c: real;  
3. begin
4.  Writeln('Введите число a: ');  
5.  Readln(a);
6.  b := 5;
7.  c := a / b;
8.  Writeln(c);
9. end.

Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.